home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / LEGL.FOR < prev    next >
Text File  |  1985-05-02  |  977b  |  35 lines
  1. $STORAGE: 4
  2. $DO66
  3.       SUBROUTINE LEGL(N,NX)
  4. C                       PRINTS THE INITIAL PART OF LOWER-CASE 'H','K',
  5. C     'L','M','N','P' AND 'R';      H  K  L  M  N  P  R
  6. C                               N: 25 25 25  0  0 25  0
  7. C                              NX:  0  0  0  0  0 25  0
  8. C
  9.       DIMENSION KS(16)
  10.       COMMON /LINES/ LINE(132),LINEX(132)
  11.     CHARACTER*1 LINE,LINEX
  12. 61    FORMAT(1X,132A1)
  13. 62    FORMAT(1H+,132A1)
  14.       DATA KS/6,7,48,51,7,8,47,48,8,9,46,47, 9,12,43,46/
  15.       CALL BAXX(1,1)
  16.       CALL FRNT( -NX,6-NX)
  17.       CALL FRNT(49+N-NX,55+N-NX)
  18.       WRITE(2,61) LINE
  19.       WRITE(2,62) LINEX
  20.       WRITE(2,61) LINE
  21.       WRITE(2,62) LINEX
  22.       DO 10 I=1,4
  23.       K = 4*(I-1) + 1
  24.       CALL FRNT(KS(K)-NX,KS(K+1)-NX)
  25.       CALL FRNT(KS(K+2)+N-NX,KS(K+3)+N-NX)
  26.       WRITE(2,61) LINE
  27. 10    WRITE(2,62) LINEX
  28.       CALL FRNT(12-NX,43+N-NX)
  29.       DO 20 K=1,6
  30.       WRITE(2,61) LINE
  31. 20    WRITE(2,62) LINEX
  32.       RETURN
  33.       END
  34.  
  35.